home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 551-575 / disk_570 / gadtoolsbox / source / source.lha / globals.c < prev    next >
C/C++ Source or Header  |  1991-11-04  |  5KB  |  158 lines
  1. /*-- AutoRev header do NOT edit!
  2. *
  3. *   Program         :   globals.c
  4. *   Copyright       :   © Copyright 1991 Jaba Development
  5. *   Author          :   Jan van den Baard
  6. *   Creation Date   :   22-Sep-91
  7. *   Current version :   1.00
  8. *   Translator      :   DICE v2.6
  9. *
  10. *   REVISION HISTORY
  11. *
  12. *   Date          Version         Comment
  13. *   ---------     -------         ------------------------------------------
  14. *   22-Sep-91     1.00            Globals for the program.
  15. *
  16. *-- REV_END --*/
  17.  
  18. #include "GTEd.h"
  19.  
  20. /*
  21.  * --- Used MemoryChains.
  22.  */
  23. struct MemoryChain          *Chain; /* Gadgets & menus */
  24. struct MemoryChain          *Misc;  /* The rest...     */
  25.  
  26. /*
  27.  * --- Library base pointers. (Module: Resources.c)
  28.  */
  29. struct IntuitionBase        *IntuitionBase  =   NULL;
  30. struct GfxBase              *GfxBase        =   NULL;
  31. struct CxBase               *CxBase         =   NULL;
  32. struct IconBase             *IconBase       =   NULL;
  33. struct UtilityBase          *UtilityBase    =   NULL;
  34. struct AslBase              *AslBase        =   NULL;
  35. struct NoFragBase           *NoFragBase     =   NULL;
  36. struct DiskfontBase         *DiskfontBase   =   NULL;
  37.  
  38. /*
  39.  * --- Screen graphics info. (Module: Resources.c)
  40.  */
  41. APTR                         MainVisualInfo =   NULL;
  42. struct DrawInfo             *MainDrawInfo   =   NULL;
  43.  
  44. /*
  45.  * --- Message info. (Module: func.c)
  46.  */
  47. ULONG                        Class;
  48. UWORD                        Qualifier, Code;
  49. APTR                         Object;
  50.  
  51. /*
  52.  * --- Standard topaz 8 font for program requesters and
  53.  * --- definable font for the gadgets/menus.
  54.  */
  55. struct TextAttr              Topaz80 = {
  56.     (STRPTR)"topaz.font", TOPAZ_EIGHTY, FS_NORMAL, FPF_ROMFONT };
  57.  
  58. UBYTE                        MainFontName[80] = "topaz.font";
  59.  
  60. struct TextAttr              MainFont = {
  61.     (STRPTR)&MainFontName[0], TOPAZ_EIGHTY, FS_NORMAL, FPF_ROMFONT };
  62.  
  63.  
  64. /*
  65.  * --- Main data.
  66.  */
  67. struct Window               *MainWindow = NULL;
  68. struct Screen               *MainScreen = NULL;
  69. struct Menu                 *MainMenus  = NULL;
  70. struct RastPort             *MainRP;
  71.  
  72. UBYTE                       *MainExtension    = ".g";
  73. UBYTE                        MainWBStatus[20] = "Close Workbench";
  74. UBYTE                        MainFileName[512] = "unnamed.g";
  75. UWORD                        MainEditKind;
  76.  
  77. UWORD                        MainDriPen[NUMDRIPENS + 1] = ~0;
  78. struct ColorSpec             MainColors[33] = { ~0, 0, 0, 0 };
  79.  
  80. UBYTE                        MainScreenTitle[80] = "GadToolsBox v1.0 © 1991";
  81. UBYTE                        MainWindowTitle[80] = "Work Window";
  82.  
  83. #define TOOLS_IDCMP     ARROWIDCMP | BUTTONIDCMP | CHECKBOXIDCMP |\
  84.                         INTEGERIDCMP | LISTVIEWIDCMP | MXIDCMP |\
  85.                         CYCLEIDCMP | PALETTEIDCMP | SCROLLERIDCMP |\
  86.                         SLIDERIDCMP | STRINGIDCMP
  87.  
  88. struct TagItem           nwTags[] = {
  89.     WA_Left,            10l,
  90.     WA_Top,             15l,
  91.     WA_Width,           200l,
  92.     WA_Height,          50l,
  93.     WA_IDCMP,           IDCMP_NEWSIZE | TOOLS_IDCMP | IDCMP_INACTIVEWINDOW | IDCMP_ACTIVEWINDOW | IDCMP_MOUSEBUTTONS | IDCMP_CLOSEWINDOW | IDCMP_REFRESHWINDOW | IDCMP_MENUPICK | IDCMP_RAWKEY | IDCMP_MENUVERIFY | IDCMP_CHANGEWINDOW,
  94.     WA_Flags,           WFLG_DRAGBAR | WFLG_CLOSEGADGET | WFLG_SIZEGADGET | WFLG_DEPTHGADGET | WFLG_SMART_REFRESH | WFLG_ACTIVATE,
  95.     WA_Title,           MainWindowTitle,
  96.     WA_CustomScreen,    0l,
  97.     WA_MinWidth,        67l,
  98.     WA_MinHeight,       21l,
  99.     WA_MaxWidth,        0l,
  100.     WA_MaxHeight,       0l,
  101.     WA_AutoAdjust,      TRUE,
  102.     TAG_DONE };
  103.  
  104. struct TagItem               MainSTags[] = {
  105.     SA_Left,            0l,
  106.     SA_Top,             0l,
  107.     SA_Width,           640l,
  108.     SA_Height,          -1l,
  109.     SA_Depth,           2l,
  110.     SA_DisplayID,       DEFAULT_MONITOR_ID | HIRES_KEY,
  111.     SA_Title,           MainScreenTitle,
  112.     SA_Pens,            MainDriPen,
  113.     SA_Type,            CUSTOMSCREEN,
  114.     SA_Font,            &MainFont,
  115.     SA_Colors,          MainColors,
  116.     SA_AutoScroll,      TRUE,
  117.     TAG_DONE  };
  118.  
  119. struct ExtGadgetList         Gadgets;
  120. struct Gadget               *MainGList = NULL;
  121.  
  122. BOOL                         WBenchClose = FALSE;
  123. BOOL                         GadgetsOn = FALSE;
  124. UWORD                        CountFrom = 0;
  125.  
  126. UBYTE                       *PlaceList[] = {
  127.     "IN", "LEFT", "RIGHT", "ABOVE", "BELOW", 0l };
  128.  
  129. UWORD                        PlaceFlags[] = {
  130.     PLACETEXT_IN, PLACETEXT_LEFT, PLACETEXT_RIGHT,
  131.     PLACETEXT_ABOVE, PLACETEXT_BELOW};
  132.  
  133. UWORD                        ngFlags;
  134. WORD                         ngLeft, ngTop, ngWidth, ngHeight;
  135.  
  136. struct StringExtend          Sextend = {
  137.     0l, 1, 0, 1, 2, 0l, 0l, 0l, 0l };
  138.  
  139. UWORD                        ActiveKind = BUTTON_KIND;
  140.  
  141. struct Prefs                 MainPrefs ={
  142.     PR_VERSION, PRF_WRITEICON, 0l, 0 };
  143.  
  144. BOOL                         BreakDRAG  = FALSE;
  145. BOOL                         Saved      = TRUE;
  146.  
  147. struct IntuiText            *WindowTxt = 0l;
  148.  
  149. UWORD                        AlertCol;
  150.  
  151. UBYTE                       *Template  = "Name";
  152. ULONG                        Args[2] = { 0l, 0l };
  153. struct RDArgs                IArgs = { { 0,0,0 },0,0,0,0,RDAF_NOPROMPT };
  154. struct RDArgs               *FArgs = 0l;
  155.  
  156. ULONG                        WindowIDCMP = IDCMP_CLOSEWINDOW;
  157. ULONG                        WindowFlags = WFLG_DRAGBAR + WFLG_CLOSEGADGET + WFLG_SIZEGADGET + WFLG_DEPTHGADGET + WFLG_SMART_REFRESH;
  158.